From: Eric S. Raymond <esr@snark.thyrsus.com>
Date: Thu, 8 Apr 1993 16:51:04 +0000 (+0000)
Subject: (vc-comment-to-change-log): Merged in the remainder of jimb's last
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~96567
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=124250cf9a2207c4dec1b0030d619015b35365ac;p=emacs.git

(vc-comment-to-change-log): Merged in the remainder of jimb's last
change.
---

diff --git a/lisp/vc.el b/lisp/vc.el
index 015dfff1bad..d720d961a5d 100644
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -532,8 +532,11 @@ popped up to accept a comment."
 
 ;;; Here is a checkin hook that may prove useful to sites using the
 ;;; ChangeLog facility supported by Emacs.
-(defun vc-comment-to-change-log ()
-  (let ((log (find-change-log)))
+(defun vc-comment-to-change-log (&optional file)
+   "Update change log from comments entered into VC for the current file.
+Optional FILE specifies the change log file name; see `find-change-log'.
+See `vc-update-change-log'."
+  (let ((log (find-change-log file)))
     (if log
 	(let ((default-directory (or (file-name-directory log)
 				     default-directory)))